home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / prefs.dxr / 00023_prefs slider.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  658 b   |  22 lines
  1. property ancestor
  2.  
  3. on new me, theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, descendant
  4.   if objectp(descendant) then
  5.     PassObj = descendant
  6.   else
  7.     PassObj = me
  8.   end if
  9.   ancestor = new(script("slider thumb"), theSliderName, thecast, theThumbChannel, theThumbLoc, minPixel, maxPixel, initialSetting, numSettings, minSetting, maxSetting, isContinuous, isHoriz, directionOfIncrease, PassObj)
  10.   return me
  11. end
  12.  
  13. on performFunction me
  14.   return me
  15. end
  16.  
  17. on DoMouseUp me
  18.   set the soundLevel to me.pSetting - 1
  19.   beep()
  20.   return me
  21. end
  22.